﻿Module Module1

    Sub Main()

        Console.WriteLine("Starte SFDL.NET2 als Administrator...Bitte Warten...")

        System.Threading.Thread.Sleep(1000)

        Dim _proc_info As New ProcessStartInfo()

        Try

            _proc_info.Verb = "runas"
            _proc_info.FileName = "SFDL.NET 2.exe"

            Process.Start(_proc_info)

        Catch ex As Exception
            Console.WriteLine("Starten als Administrator fehlgeschlagen!")
        End Try

    End Sub

End Module
